# macro2parcial Macroeconometría Segundo-Parcial---Macroeconomía11.knit

“Segundo Parcial - Macroeconomía”

Jean Pierre Enríquez

22 de octubre de 2021

I. Pregunta de investigación

¿Cuál es el efecto de la inflación sobre las exportaciones totales del Ecuador?

II. Estadísticas descriptivas

Inflación

##       Min.    1st Qu.     Median       Mean    3rd Qu.       Max. 
## -7.037e-03 -8.734e-05  1.770e-03  2.298e-03  4.180e-03  1.518e-02

Exportaciones

##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##   85114  538474  675944  758797 1002177 1514327

II. Gráficos de las series de tiempo

Inflación

20062008201020122014201620182020−0.00500.0050.010.015
AñoInflación

 

Exportaciones totales

200620082010201220142016201820200.2M0.4M0.6M0.8M1M1.2M1.4M
AñoExportaciones

III. Descomposición Aditiva

Variable Inflación

library(TTR)
  ###INFLACION
wt_inf = ts(bdd$INFL, frequency = 12, start = c(2005,1))
  #FUNCION SMA (SIMPLE MOVIL MEDIA)
    #COMPONENTENTE TENDENCIAL
  tendencia_sma_infl <- SMA(wt_inf, n = 12)
  #COMPONENTE ESTACIONAL
  st_rt_wt_infl = wt_inf - tendencia_sma_infl
  ##MATRIZ ESTACIONALIDAD
  matrizst_rt_ifl <- matrix(st_rt_wt_infl, nrow = 12)
  matrizst_rt_inf <- t(matrizst_rt_ifl)
  mean_matrizst_rt_infl <- colMeans(matrizst_rt_inf, na.rm = TRUE)   
  ##COMPONENTE RESIDUAL
  estacional_inf <- rep(mean_matrizst_rt_infl, 15)
  estacional_inf <- ts(estacional_inf, frequency = 12, start = c(2005,1))
  residual_inf <- st_rt_wt_infl - estacional_inf

Gráfico 1:

00.005−0.00200.002201020152020−0.00500.005
TendenciaEstacionalidadResiduoDescomposición aditivaAñoΔ%Δ%Δ%

Exportaciones

###EXPORTACIONES
  wt_xp = ts(bdd$XPOR, frequency = 12, start = c(2005,1))
  #FUNCION SMA (SIMPLE MOVIL MEDIA)
  #COMPONENTENTE TENDENCIAL
  tendencia_sma_xp <- SMA(wt_xp, n = 12)
  
  #COMPONENTE ESTACIONAL
  st_rt_wt_xp = wt_xp - tendencia_sma_xp
  ##MATRIZ ESTACIONALIDAD
  matrizst_rt_xp <- matrix(st_rt_wt_xp, nrow = 12)
  matrizst_rt_xp <- t(matrizst_rt_xp)
  mean_matrizst_rt_xp <- colMeans(matrizst_rt_xp, na.rm = TRUE)
  ##COMPONENTE RESIDUAL
  estacional_xp <- rep(mean_matrizst_rt_xp, 15)
  estacional_xp <- ts(estacional_xp, frequency = 12, start = c(2005,1))
  residual_xp <- st_rt_wt_xp - estacional_xp

Gráfico 2:

0.4M0.6M0.8M1M1.2M−50k050k201020152020−500k0
TendenciaEstacionalidadResiduoDescomposición aditivaAñoFOBFOBFOB

IV. Descomposición Multiplicativa

Inflación

###INFLACION
#FUNCION SM (TENDENCIA CENTRADA)
tendencia_infl_mul <- ma(wt_inf, 12, centre = TRUE)
#COMPONENTE SIN TENDENCIA
st_rt_infl_mul <- wt_inf/tendencia_infl_mul
#MATRIZ COMPONENTE SIN TENDENCIA
matrizst_rt_inf_mul <- matrix(st_rt_infl_mul, nrow = 12)
##TRANSPUESTA
matrizst_rt_t_inf_mul <- t(matrizst_rt_inf_mul)
###PROMEDIOS MATRIZ TRANSPUESTA DEL COMPONENTE SIN TENDENCIA
promediosmt_inf_mul <- colMeans(matrizst_rt_t_inf_mul, na.rm = T)

#COMPONENTE ESTACIONAL MULTIPLICATIVO
estacional_inf_mul <- rep(promediosmt_inf_mul, 15)
estacional_inf_mul <- ts(estacional_inf_mul, frequency = 12, start = c(2005,1))
#COMPONENTE RESIDUO MULTIPLICATIVO
residuo_inf_mul <- st_rt_infl_mul/estacional_inf_mul

Gráfico 3:

00.005−5051015201020152020−20020
TendenciaEstacionalidadResiduoDescomposición MultiplicativaAñoΔ%Δ%Δ%

Exportaciones

###EXPORTACIONES

#FUNCION SM (TENDENCIA CENTRADA)
tendencia_xp_mul <- ma(wt_xp, 12, centre = TRUE)
#COMPONENTE SIN TENDENCIA
st_rt_xp_mul <- wt_xp/tendencia_xp_mul
#MATRIZ COMPONENTE SIN TENDENCIA
matrizst_rt_xp_mul <- matrix(st_rt_xp_mul, nrow = 12)
##TRANSPUESTA
matrizst_rt_t_xp_mul <- t(matrizst_rt_xp_mul)
###PROMEDIOS MATRIZ TRANSPUESTA DEL COMPONENTE SIN TENDENCIA
promediosmt_xp_mul <- colMeans(matrizst_rt_t_xp_mul, na.rm = T)

#COMPONENTE ESTACIONAL MULTIPLICATIVO
estacional_xp_mul <- rep(promediosmt_xp_mul, 15)
estacional_xp_mul <- ts(estacional_xp_mul, frequency = 12, start = c(2005,1))
#COMPONENTE RESIDUO MULTIPLICATIVO
residuo_xp_mul <- st_rt_xp_mul/estacional_xp_mul

Gráfico 4:

0.4M0.6M0.8M1M1.2M0.90.9511.052010201520200.51
TendenciaEstacionalidadResiduoDescomposición MultiplicativaAñoΔ%Δ%Δ%

V. Análisis de las variables

Antes de continuar es pertinente mencionar que dentro de los siguientes análisis se tomará en cuanta esencialmente las figuras de la media móvil central. Ello debido que la tendencia móvil simple usa solo los valores anteriores; mientras que la media móvil centrada en lugar de usar los anteriores, utiliza también los valores posteriores. Es decir que la tendencia móvil central resulta en un mejor alisado de las tendencias a través del tiempo, asimismo, las estimaciones utilizan valores centrales y la serie de tiempo no pierde mucha calidad.

Inflación

Tendencia:
En la variable exportaciones se puede evidenciar una tendencia creciente hacia 2008. Esto se puede explicar por el nuevo régimen político de aquel entonces. El crecimiento económico fue básicamente debido a la enorme inversión privada y pública que creció 16,1% respecto al 2007 (El Universo, 2009). Además, el precio del crudo ecuatoriano se vio elevado en 2008 por los precios de los mercados internacionales. El barril de petroleo llegó a los 120 dólares. Sin embargo, a mediados del 2009 y 2010 el precio se desplomó llegando a precios de 20 dólares por barril de crudo. Según la CEPAL (2009), los ingresos del Ecuador derivados de las exportaciones petrolera crecieron en un 222%. Ello explica, así mismo, el aumento de los ingresos en un 69,2% del Estado ecuatoriano. En los años siguientes el precio del crudo (principal componente de las exportaciones totales) osciló entre los $78,2 por barril. Hasta finales de 2013, el Ecuador recibió un total de $77.530 millones. En suma, la cuenta corriente de la balanza de pagos denotó un superavit, entre 2007 y 2008, resultado de los altos precios del petróleo WTI.
Para 2013 se puede observar una tendencia a la alza. De acuerdo con el Banco Central del Ecuador (2014), el Ecuador presentó un crecimiento económico con una fuerte relación sobre las exportaciones totales que crecieron en 6,6% con respecto a 2012. Los precios del crudo ecutoriano cotizaron entre $104,73 y $108,73 en el último cuatrimestre del 2013.
Hacia 2015, se denota una caída tendencial grave. Las exportaciones totales del Ecuador cayeron en $7.366 millones de dólares. La caída de los precios del crudo en los mercados internacionales y la apreciación del dólar serían la respuesta. Las ventas de Ecuador hacia el mundo decayeron en aproximadamente 28,6%. Varios sectores no petroleros cerraron en números negativos, excepto los cacaoteros, bananeros, madereros. Los sectores más afectados en los mercados internacionales fueron el camarón, el café y el atún ecuatoriano.
En 2018 es evidente que la tendencia vuelve a subir. Los precios del crudo ecuatoriano se recuperaron, de forma relativa, en este tiempo. Los precios durante 4 años fueron devastadores para los productores de petroleo. Sin embargo, en 2018 se elevaron hasta los $75,23 (cierre mercado octubre 2018). La tendencia es clara, se demarca constante con pequeños picos y valles.
En 2020, el mundo fue asotado por la pandemia COVID-19. Las exportaciones totales de Ecuador cayeron sustancialmente. Los mercados mundiales se cerraron a Ecuador, pues tenían otras prioridades. La producción de petroleo se desacerleró y la producción de productos no petroleros se sumergió.
En suma, se puede observar una tendencia de las exportaciones en función del precio del petróleo en los mercados internacionales. Las exportaciones no petroleras no influyen en gran cuantía dentro de la balanza comercial. Dicho esto, mientras suba el precio, las exportaciones suben y mientras baja el precio las exportaciones disminuyen.
Estacionalidad:
En cuanto al componente estacional se puede denotar que cada año las exportaciones totales suelen tener un repunte y luego una caída. La caída en forma de pico invertido sería leve, pues es muy breve. Las exportaciones, por tanto, denotarían sus mejores meses a inicios y mediados del año.
Residuo:
El residuo parece ser totalmente aleatorio. No tienen ninguna tendencia a lo largo del tiempo. Este componente se puede entender como ruido de la serie dentro del proceso estocástico.

Exportaciones

Tendencia:
La inflación del Ecuador se disparó a 8,83% por causas internas y externas (El Universo, 2009). El proceso inflacionario de Ecuador se aceleró, desde enero de 2008, llegando a niveles del 4,2% para finalmente cerrar en
casí 9 puntos porcentuales. El Banco Central del Ecuado ha expuesto que la inflación presentada a 2008 fue detonada por tres cuasas principales: precios internacionales, tipo de cambio y políticas públicas. Las políticas enfacadas en el gasto social produjeron un exceso de liquidez en la economía que derivó en una alza de precios. La demanda impulsada por el gasto público se reflejó mediante la inflación.
A partir 2008, la inflación muestra una tendencia a la baja. Se ha mantenido con esa tendencia a lo largo del tiempo. Entre 2015 a 2020, es evidente que la inflación ha caído aún más. En 2018 la inflación fue de apenas 0,27%. Esta debacle de la inflación puede ser explicada por la disminución de los precios internacionales de los bienes y servicios a partir de la crisis de 2008 en la que quebraron importantes bancos extranjeros.
Estacionalidad:
Con respecto al componente estacional se puede denotar que 8 o 10 la inflación tiene una ganancia. Se observa un nivel generalizado de poco nivel, pues como se expuso, Ecuador mantiene una inflación que oscila entre pequeños valores. La alza en la inflación puede responder, en teoría, a épocas donde el gasto público aumenta y el mercado interno (ecuatoriano) se expande.
Tendencia:
La tendencia de la inflación no demarca una tendencia. Es un proceso aleatorio en forma de ruido. Al igual que residuo de las exportaciones, presenta valores aleatorios que no especifican o dan razón alguna.

VI. Fuentes bibliográficas

○El Universo. (9 de abril de 2009). Ecuador registra crecimiento 6,52% en 2008 . El Universo.
○CEPAL. (2009). Ecuador.
○BCE. (2014). LA ECONOMÍA ECUATORIANA TUVO UN CRECIMIENTO ANUAL DE 4,9% ○EN EL TERCER TRIMESTRE DE 2013 . Quito.
El Universo. (12 de enero de 2009). La inflación se disparó en el 2008 por causas internas y externas. El Universo.
○Banco Central del Ecuador. (2021) Estadísticas.
Segundo-Parcial---Macroeconomía11.knit

“Segundo Parcial - Macroeconomía”

Jean Pierre Enríquez

22 de octubre de 2021

I. Pregunta de investigación

¿Cuál es el efecto de la inflación sobre las exportaciones totales del Ecuador?

II. Estadísticas descriptivas

Inflación

##       Min.    1st Qu.     Median       Mean    3rd Qu.       Max. 
## -7.037e-03 -8.734e-05  1.770e-03  2.298e-03  4.180e-03  1.518e-02

Exportaciones

##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##   85114  538474  675944  758797 1002177 1514327

II. Gráficos de las series de tiempo

Inflación

20062008201020122014201620182020−0.00500.0050.010.015
AñoInflación

 

Exportaciones totales

200620082010201220142016201820200.2M0.4M0.6M0.8M1M1.2M1.4M
AñoExportaciones

III. Descomposición Aditiva

Variable Inflación

library(TTR)
  ###INFLACION
wt_inf = ts(bdd$INFL, frequency = 12, start = c(2005,1))
  #FUNCION SMA (SIMPLE MOVIL MEDIA)
    #COMPONENTENTE TENDENCIAL
  tendencia_sma_infl <- SMA(wt_inf, n = 12)
  #COMPONENTE ESTACIONAL
  st_rt_wt_infl = wt_inf - tendencia_sma_infl
  ##MATRIZ ESTACIONALIDAD
  matrizst_rt_ifl <- matrix(st_rt_wt_infl, nrow = 12)
  matrizst_rt_inf <- t(matrizst_rt_ifl)
  mean_matrizst_rt_infl <- colMeans(matrizst_rt_inf, na.rm = TRUE)   
  ##COMPONENTE RESIDUAL
  estacional_inf <- rep(mean_matrizst_rt_infl, 15)
  estacional_inf <- ts(estacional_inf, frequency = 12, start = c(2005,1))
  residual_inf <- st_rt_wt_infl - estacional_inf

Gráfico 1:

00.005−0.00200.002201020152020−0.00500.005
TendenciaEstacionalidadResiduoDescomposición aditivaAñoΔ%Δ%Δ%

Exportaciones

###EXPORTACIONES
  wt_xp = ts(bdd$XPOR, frequency = 12, start = c(2005,1))
  #FUNCION SMA (SIMPLE MOVIL MEDIA)
  #COMPONENTENTE TENDENCIAL
  tendencia_sma_xp <- SMA(wt_xp, n = 12)
  
  #COMPONENTE ESTACIONAL
  st_rt_wt_xp = wt_xp - tendencia_sma_xp
  ##MATRIZ ESTACIONALIDAD
  matrizst_rt_xp <- matrix(st_rt_wt_xp, nrow = 12)
  matrizst_rt_xp <- t(matrizst_rt_xp)
  mean_matrizst_rt_xp <- colMeans(matrizst_rt_xp, na.rm = TRUE)
  ##COMPONENTE RESIDUAL
  estacional_xp <- rep(mean_matrizst_rt_xp, 15)
  estacional_xp <- ts(estacional_xp, frequency = 12, start = c(2005,1))
  residual_xp <- st_rt_wt_xp - estacional_xp

Gráfico 2:

0.4M0.6M0.8M1M1.2M−50k050k201020152020−500k0
TendenciaEstacionalidadResiduoDescomposición aditivaAñoFOBFOBFOB

IV. Descomposición Multiplicativa

Inflación

###INFLACION
#FUNCION SM (TENDENCIA CENTRADA)
tendencia_infl_mul <- ma(wt_inf, 12, centre = TRUE)
#COMPONENTE SIN TENDENCIA
st_rt_infl_mul <- wt_inf/tendencia_infl_mul
#MATRIZ COMPONENTE SIN TENDENCIA
matrizst_rt_inf_mul <- matrix(st_rt_infl_mul, nrow = 12)
##TRANSPUESTA
matrizst_rt_t_inf_mul <- t(matrizst_rt_inf_mul)
###PROMEDIOS MATRIZ TRANSPUESTA DEL COMPONENTE SIN TENDENCIA
promediosmt_inf_mul <- colMeans(matrizst_rt_t_inf_mul, na.rm = T)

#COMPONENTE ESTACIONAL MULTIPLICATIVO
estacional_inf_mul <- rep(promediosmt_inf_mul, 15)
estacional_inf_mul <- ts(estacional_inf_mul, frequency = 12, start = c(2005,1))
#COMPONENTE RESIDUO MULTIPLICATIVO
residuo_inf_mul <- st_rt_infl_mul/estacional_inf_mul

Gráfico 3:

00.005−5051015201020152020−20020
TendenciaEstacionalidadResiduoDescomposición MultiplicativaAñoΔ%Δ%Δ%

Exportaciones

###EXPORTACIONES

#FUNCION SM (TENDENCIA CENTRADA)
tendencia_xp_mul <- ma(wt_xp, 12, centre = TRUE)
#COMPONENTE SIN TENDENCIA
st_rt_xp_mul <- wt_xp/tendencia_xp_mul
#MATRIZ COMPONENTE SIN TENDENCIA
matrizst_rt_xp_mul <- matrix(st_rt_xp_mul, nrow = 12)
##TRANSPUESTA
matrizst_rt_t_xp_mul <- t(matrizst_rt_xp_mul)
###PROMEDIOS MATRIZ TRANSPUESTA DEL COMPONENTE SIN TENDENCIA
promediosmt_xp_mul <- colMeans(matrizst_rt_t_xp_mul, na.rm = T)

#COMPONENTE ESTACIONAL MULTIPLICATIVO
estacional_xp_mul <- rep(promediosmt_xp_mul, 15)
estacional_xp_mul <- ts(estacional_xp_mul, frequency = 12, start = c(2005,1))
#COMPONENTE RESIDUO MULTIPLICATIVO
residuo_xp_mul <- st_rt_xp_mul/estacional_xp_mul

Gráfico 4:

0.4M0.6M0.8M1M1.2M0.90.9511.052010201520200.51
TendenciaEstacionalidadResiduoDescomposición MultiplicativaAñoΔ%Δ%Δ%

V. Análisis de las variables

Antes de continuar es pertinente mencionar que dentro de los siguientes análisis se tomará en cuanta esencialmente las figuras de la media móvil central. Ello debido que la tendencia móvil simple usa solo los valores anteriores; mientras que la media móvil centrada en lugar de usar los anteriores, utiliza también los valores posteriores. Es decir que la tendencia móvil central resulta en un mejor alisado de las tendencias a través del tiempo, asimismo, las estimaciones utilizan valores centrales y la serie de tiempo no pierde mucha calidad.

Inflación

Tendencia:
En la variable exportaciones se puede evidenciar una tendencia creciente hacia 2008. Esto se puede explicar por el nuevo régimen político de aquel entonces. El crecimiento económico fue básicamente debido a la enorme inversión privada y pública que creció 16,1% respecto al 2007 (El Universo, 2009). Además, el precio del crudo ecuatoriano se vio elevado en 2008 por los precios de los mercados internacionales. El barril de petroleo llegó a los 120 dólares. Sin embargo, a mediados del 2009 y 2010 el precio se desplomó llegando a precios de 20 dólares por barril de crudo. Según la CEPAL (2009), los ingresos del Ecuador derivados de las exportaciones petrolera crecieron en un 222%. Ello explica, así mismo, el aumento de los ingresos en un 69,2% del Estado ecuatoriano. En los años siguientes el precio del crudo (principal componente de las exportaciones totales) osciló entre los $78,2 por barril. Hasta finales de 2013, el Ecuador recibió un total de $77.530 millones. En suma, la cuenta corriente de la balanza de pagos denotó un superavit, entre 2007 y 2008, resultado de los altos precios del petróleo WTI.
Para 2013 se puede observar una tendencia a la alza. De acuerdo con el Banco Central del Ecuador (2014), el Ecuador presentó un crecimiento económico con una fuerte relación sobre las exportaciones totales que crecieron en 6,6% con respecto a 2012. Los precios del crudo ecutoriano cotizaron entre $104,73 y $108,73 en el último cuatrimestre del 2013.
Hacia 2015, se denota una caída tendencial grave. Las exportaciones totales del Ecuador cayeron en $7.366 millones de dólares. La caída de los precios del crudo en los mercados internacionales y la apreciación del dólar serían la respuesta. Las ventas de Ecuador hacia el mundo decayeron en aproximadamente 28,6%. Varios sectores no petroleros cerraron en números negativos, excepto los cacaoteros, bananeros, madereros. Los sectores más afectados en los mercados internacionales fueron el camarón, el café y el atún ecuatoriano.
En 2018 es evidente que la tendencia vuelve a subir. Los precios del crudo ecuatoriano se recuperaron, de forma relativa, en este tiempo. Los precios durante 4 años fueron devastadores para los productores de petroleo. Sin embargo, en 2018 se elevaron hasta los $75,23 (cierre mercado octubre 2018). La tendencia es clara, se demarca constante con pequeños picos y valles.
En 2020, el mundo fue asotado por la pandemia COVID-19. Las exportaciones totales de Ecuador cayeron sustancialmente. Los mercados mundiales se cerraron a Ecuador, pues tenían otras prioridades. La producción de petroleo se desacerleró y la producción de productos no petroleros se sumergió.
En suma, se puede observar una tendencia de las exportaciones en función del precio del petróleo en los mercados internacionales. Las exportaciones no petroleras no influyen en gran cuantía dentro de la balanza comercial. Dicho esto, mientras suba el precio, las exportaciones suben y mientras baja el precio las exportaciones disminuyen.
Estacionalidad:
En cuanto al componente estacional se puede denotar que cada año las exportaciones totales suelen tener un repunte y luego una caída. La caída en forma de pico invertido sería leve, pues es muy breve. Las exportaciones, por tanto, denotarían sus mejores meses a inicios y mediados del año.
Residuo:
El residuo parece ser totalmente aleatorio. No tienen ninguna tendencia a lo largo del tiempo. Este componente se puede entender como ruido de la serie dentro del proceso estocástico.

Exportaciones

Tendencia:
La inflación del Ecuador se disparó a 8,83% por causas internas y externas (El Universo, 2009). El proceso inflacionario de Ecuador se aceleró, desde enero de 2008, llegando a niveles del 4,2% para finalmente cerrar en
casí 9 puntos porcentuales. El Banco Central del Ecuado ha expuesto que la inflación presentada a 2008 fue detonada por tres cuasas principales: precios internacionales, tipo de cambio y políticas públicas. Las políticas enfacadas en el gasto social produjeron un exceso de liquidez en la economía que derivó en una alza de precios. La demanda impulsada por el gasto público se reflejó mediante la inflación.
A partir 2008, la inflación muestra una tendencia a la baja. Se ha mantenido con esa tendencia a lo largo del tiempo. Entre 2015 a 2020, es evidente que la inflación ha caído aún más. En 2018 la inflación fue de apenas 0,27%. Esta debacle de la inflación puede ser explicada por la disminución de los precios internacionales de los bienes y servicios a partir de la crisis de 2008 en la que quebraron importantes bancos extranjeros.
Estacionalidad:
Con respecto al componente estacional se puede denotar que 8 o 10 la inflación tiene una ganancia. Se observa un nivel generalizado de poco nivel, pues como se expuso, Ecuador mantiene una inflación que oscila entre pequeños valores. La alza en la inflación puede responder, en teoría, a épocas donde el gasto público aumenta y el mercado interno (ecuatoriano) se expande.
Tendencia:
La tendencia de la inflación no demarca una tendencia. Es un proceso aleatorio en forma de ruido. Al igual que residuo de las exportaciones, presenta valores aleatorios que no especifican o dan razón alguna.

VI. Fuentes bibliográficas

○El Universo. (9 de abril de 2009). Ecuador registra crecimiento 6,52% en 2008 . El Universo.
○CEPAL. (2009). Ecuador.
○BCE. (2014). LA ECONOMÍA ECUATORIANA TUVO UN CRECIMIENTO ANUAL DE 4,9% ○EN EL TERCER TRIMESTRE DE 2013 . Quito.
El Universo. (12 de enero de 2009). La inflación se disparó en el 2008 por causas internas y externas. El Universo.
○Banco Central del Ecuador. (2021) Estadísticas.

“Segundo Parcial - Macroeconomía”

Jean Pierre Enríquez

22 de octubre de 2021

I. Pregunta de investigación

¿Cuál es el efecto de la inflación sobre las exportaciones totales del Ecuador?

II. Estadísticas descriptivas

Inflación

##       Min.    1st Qu.     Median       Mean    3rd Qu.       Max. 
## -7.037e-03 -8.734e-05  1.770e-03  2.298e-03  4.180e-03  1.518e-02

Exportaciones

##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##   85114  538474  675944  758797 1002177 1514327

II. Gráficos de las series de tiempo

Inflación

20062008201020122014201620182020−0.00500.0050.010.015
AñoInflación

 

Exportaciones totales

200620082010201220142016201820200.2M0.4M0.6M0.8M1M1.2M1.4M
AñoExportaciones

III. Descomposición Aditiva

Variable Inflación

library(TTR)
  ###INFLACION
wt_inf = ts(bdd$INFL, frequency = 12, start = c(2005,1))
  #FUNCION SMA (SIMPLE MOVIL MEDIA)
    #COMPONENTENTE TENDENCIAL
  tendencia_sma_infl <- SMA(wt_inf, n = 12)
  #COMPONENTE ESTACIONAL
  st_rt_wt_infl = wt_inf - tendencia_sma_infl
  ##MATRIZ ESTACIONALIDAD
  matrizst_rt_ifl <- matrix(st_rt_wt_infl, nrow = 12)
  matrizst_rt_inf <- t(matrizst_rt_ifl)
  mean_matrizst_rt_infl <- colMeans(matrizst_rt_inf, na.rm = TRUE)   
  ##COMPONENTE RESIDUAL
  estacional_inf <- rep(mean_matrizst_rt_infl, 15)
  estacional_inf <- ts(estacional_inf, frequency = 12, start = c(2005,1))
  residual_inf <- st_rt_wt_infl - estacional_inf

Gráfico 1:

00.005−0.00200.002201020152020−0.00500.005
TendenciaEstacionalidadResiduoDescomposición aditivaAñoΔ%Δ%Δ%

Exportaciones

###EXPORTACIONES
  wt_xp = ts(bdd$XPOR, frequency = 12, start = c(2005,1))
  #FUNCION SMA (SIMPLE MOVIL MEDIA)
  #COMPONENTENTE TENDENCIAL
  tendencia_sma_xp <- SMA(wt_xp, n = 12)
  
  #COMPONENTE ESTACIONAL
  st_rt_wt_xp = wt_xp - tendencia_sma_xp
  ##MATRIZ ESTACIONALIDAD
  matrizst_rt_xp <- matrix(st_rt_wt_xp, nrow = 12)
  matrizst_rt_xp <- t(matrizst_rt_xp)
  mean_matrizst_rt_xp <- colMeans(matrizst_rt_xp, na.rm = TRUE)
  ##COMPONENTE RESIDUAL
  estacional_xp <- rep(mean_matrizst_rt_xp, 15)
  estacional_xp <- ts(estacional_xp, frequency = 12, start = c(2005,1))
  residual_xp <- st_rt_wt_xp - estacional_xp

Gráfico 2:

0.4M0.6M0.8M1M1.2M−50k050k201020152020−500k0
TendenciaEstacionalidadResiduoDescomposición aditivaAñoFOBFOBFOB

IV. Descomposición Multiplicativa

Inflación

###INFLACION
#FUNCION SM (TENDENCIA CENTRADA)
tendencia_infl_mul <- ma(wt_inf, 12, centre = TRUE)
#COMPONENTE SIN TENDENCIA
st_rt_infl_mul <- wt_inf/tendencia_infl_mul
#MATRIZ COMPONENTE SIN TENDENCIA
matrizst_rt_inf_mul <- matrix(st_rt_infl_mul, nrow = 12)
##TRANSPUESTA
matrizst_rt_t_inf_mul <- t(matrizst_rt_inf_mul)
###PROMEDIOS MATRIZ TRANSPUESTA DEL COMPONENTE SIN TENDENCIA
promediosmt_inf_mul <- colMeans(matrizst_rt_t_inf_mul, na.rm = T)

#COMPONENTE ESTACIONAL MULTIPLICATIVO
estacional_inf_mul <- rep(promediosmt_inf_mul, 15)
estacional_inf_mul <- ts(estacional_inf_mul, frequency = 12, start = c(2005,1))
#COMPONENTE RESIDUO MULTIPLICATIVO
residuo_inf_mul <- st_rt_infl_mul/estacional_inf_mul

Gráfico 3:

00.005−5051015201020152020−20020
TendenciaEstacionalidadResiduoDescomposición MultiplicativaAñoΔ%Δ%Δ%

Exportaciones

###EXPORTACIONES

#FUNCION SM (TENDENCIA CENTRADA)
tendencia_xp_mul <- ma(wt_xp, 12, centre = TRUE)
#COMPONENTE SIN TENDENCIA
st_rt_xp_mul <- wt_xp/tendencia_xp_mul
#MATRIZ COMPONENTE SIN TENDENCIA
matrizst_rt_xp_mul <- matrix(st_rt_xp_mul, nrow = 12)
##TRANSPUESTA
matrizst_rt_t_xp_mul <- t(matrizst_rt_xp_mul)
###PROMEDIOS MATRIZ TRANSPUESTA DEL COMPONENTE SIN TENDENCIA
promediosmt_xp_mul <- colMeans(matrizst_rt_t_xp_mul, na.rm = T)

#COMPONENTE ESTACIONAL MULTIPLICATIVO
estacional_xp_mul <- rep(promediosmt_xp_mul, 15)
estacional_xp_mul <- ts(estacional_xp_mul, frequency = 12, start = c(2005,1))
#COMPONENTE RESIDUO MULTIPLICATIVO
residuo_xp_mul <- st_rt_xp_mul/estacional_xp_mul

Gráfico 4:

0.4M0.6M0.8M1M1.2M0.90.9511.052010201520200.51
TendenciaEstacionalidadResiduoDescomposición MultiplicativaAñoΔ%Δ%Δ%

V. Análisis de las variables

Antes de continuar es pertinente mencionar que dentro de los siguientes análisis se tomará en cuanta esencialmente las figuras de la media móvil central. Ello debido que la tendencia móvil simple usa solo los valores anteriores; mientras que la media móvil centrada en lugar de usar los anteriores, utiliza también los valores posteriores. Es decir que la tendencia móvil central resulta en un mejor alisado de las tendencias a través del tiempo, asimismo, las estimaciones utilizan valores centrales y la serie de tiempo no pierde mucha calidad.

Inflación

Tendencia:
En la variable exportaciones se puede evidenciar una tendencia creciente hacia 2008. Esto se puede explicar por el nuevo régimen político de aquel entonces. El crecimiento económico fue básicamente debido a la enorme inversión privada y pública que creció 16,1% respecto al 2007 (El Universo, 2009). Además, el precio del crudo ecuatoriano se vio elevado en 2008 por los precios de los mercados internacionales. El barril de petroleo llegó a los 120 dólares. Sin embargo, a mediados del 2009 y 2010 el precio se desplomó llegando a precios de 20 dólares por barril de crudo. Según la CEPAL (2009), los ingresos del Ecuador derivados de las exportaciones petrolera crecieron en un 222%. Ello explica, así mismo, el aumento de los ingresos en un 69,2% del Estado ecuatoriano. En los años siguientes el precio del crudo (principal componente de las exportaciones totales) osciló entre los $78,2 por barril. Hasta finales de 2013, el Ecuador recibió un total de $77.530 millones. En suma, la cuenta corriente de la balanza de pagos denotó un superavit, entre 2007 y 2008, resultado de los altos precios del petróleo WTI.
Para 2013 se puede observar una tendencia a la alza. De acuerdo con el Banco Central del Ecuador (2014), el Ecuador presentó un crecimiento económico con una fuerte relación sobre las exportaciones totales que crecieron en 6,6% con respecto a 2012. Los precios del crudo ecutoriano cotizaron entre $104,73 y $108,73 en el último cuatrimestre del 2013.
Hacia 2015, se denota una caída tendencial grave. Las exportaciones totales del Ecuador cayeron en $7.366 millones de dólares. La caída de los precios del crudo en los mercados internacionales y la apreciación del dólar serían la respuesta. Las ventas de Ecuador hacia el mundo decayeron en aproximadamente 28,6%. Varios sectores no petroleros cerraron en números negativos, excepto los cacaoteros, bananeros, madereros. Los sectores más afectados en los mercados internacionales fueron el camarón, el café y el atún ecuatoriano.
En 2018 es evidente que la tendencia vuelve a subir. Los precios del crudo ecuatoriano se recuperaron, de forma relativa, en este tiempo. Los precios durante 4 años fueron devastadores para los productores de petroleo. Sin embargo, en 2018 se elevaron hasta los $75,23 (cierre mercado octubre 2018). La tendencia es clara, se demarca constante con pequeños picos y valles.
En 2020, el mundo fue asotado por la pandemia COVID-19. Las exportaciones totales de Ecuador cayeron sustancialmente. Los mercados mundiales se cerraron a Ecuador, pues tenían otras prioridades. La producción de petroleo se desacerleró y la producción de productos no petroleros se sumergió.
En suma, se puede observar una tendencia de las exportaciones en función del precio del petróleo en los mercados internacionales. Las exportaciones no petroleras no influyen en gran cuantía dentro de la balanza comercial. Dicho esto, mientras suba el precio, las exportaciones suben y mientras baja el precio las exportaciones disminuyen.
Estacionalidad:
En cuanto al componente estacional se puede denotar que cada año las exportaciones totales suelen tener un repunte y luego una caída. La caída en forma de pico invertido sería leve, pues es muy breve. Las exportaciones, por tanto, denotarían sus mejores meses a inicios y mediados del año.
Residuo:
El residuo parece ser totalmente aleatorio. No tienen ninguna tendencia a lo largo del tiempo. Este componente se puede entender como ruido de la serie dentro del proceso estocástico.

Exportaciones

Tendencia:
La inflación del Ecuador se disparó a 8,83% por causas internas y externas (El Universo, 2009). El proceso inflacionario de Ecuador se aceleró, desde enero de 2008, llegando a niveles del 4,2% para finalmente cerrar en
casí 9 puntos porcentuales. El Banco Central del Ecuado ha expuesto que la inflación presentada a 2008 fue detonada por tres cuasas principales: precios internacionales, tipo de cambio y políticas públicas. Las políticas enfacadas en el gasto social produjeron un exceso de liquidez en la economía que derivó en una alza de precios. La demanda impulsada por el gasto público se reflejó mediante la inflación.
A partir 2008, la inflación muestra una tendencia a la baja. Se ha mantenido con esa tendencia a lo largo del tiempo. Entre 2015 a 2020, es evidente que la inflación ha caído aún más. En 2018 la inflación fue de apenas 0,27%. Esta debacle de la inflación puede ser explicada por la disminución de los precios internacionales de los bienes y servicios a partir de la crisis de 2008 en la que quebraron importantes bancos extranjeros.
Estacionalidad:
Con respecto al componente estacional se puede denotar que 8 o 10 la inflación tiene una ganancia. Se observa un nivel generalizado de poco nivel, pues como se expuso, Ecuador mantiene una inflación que oscila entre pequeños valores. La alza en la inflación puede responder, en teoría, a épocas donde el gasto público aumenta y el mercado interno (ecuatoriano) se expande.
Tendencia:
La tendencia de la inflación no demarca una tendencia. Es un proceso aleatorio en forma de ruido. Al igual que residuo de las exportaciones, presenta valores aleatorios que no especifican o dan razón alguna.

VI. Fuentes bibliográficas

○El Universo. (9 de abril de 2009). Ecuador registra crecimiento 6,52% en 2008 . El Universo.
○CEPAL. (2009). Ecuador.
○BCE. (2014). LA ECONOMÍA ECUATORIANA TUVO UN CRECIMIENTO ANUAL DE 4,9% ○EN EL TERCER TRIMESTRE DE 2013 . Quito.
El Universo. (12 de enero de 2009). La inflación se disparó en el 2008 por causas internas y externas. El Universo.
○Banco Central del Ecuador. (2021) Estadísticas.

“Segundo Parcial - Macroeconomía”

Jean Pierre Enríquez

22 de octubre de 2021

I. Pregunta de investigación

¿Cuál es el efecto de la inflación sobre las exportaciones totales del Ecuador?

II. Estadísticas descriptivas

Inflación

##       Min.    1st Qu.     Median       Mean    3rd Qu.       Max. 
## -7.037e-03 -8.734e-05  1.770e-03  2.298e-03  4.180e-03  1.518e-02

Exportaciones

##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##   85114  538474  675944  758797 1002177 1514327

II. Gráficos de las series de tiempo

Inflación

20062008201020122014201620182020−0.00500.0050.010.015
AñoInflación

 

Exportaciones totales

200620082010201220142016201820200.2M0.4M0.6M0.8M1M1.2M1.4M
AñoExportaciones

III. Descomposición Aditiva

Variable Inflación

library(TTR)
  ###INFLACION
wt_inf = ts(bdd$INFL, frequency = 12, start = c(2005,1))
  #FUNCION SMA (SIMPLE MOVIL MEDIA)
    #COMPONENTENTE TENDENCIAL
  tendencia_sma_infl <- SMA(wt_inf, n = 12)
  #COMPONENTE ESTACIONAL
  st_rt_wt_infl = wt_inf - tendencia_sma_infl
  ##MATRIZ ESTACIONALIDAD
  matrizst_rt_ifl <- matrix(st_rt_wt_infl, nrow = 12)
  matrizst_rt_inf <- t(matrizst_rt_ifl)
  mean_matrizst_rt_infl <- colMeans(matrizst_rt_inf, na.rm = TRUE)   
  ##COMPONENTE RESIDUAL
  estacional_inf <- rep(mean_matrizst_rt_infl, 15)
  estacional_inf <- ts(estacional_inf, frequency = 12, start = c(2005,1))
  residual_inf <- st_rt_wt_infl - estacional_inf

Gráfico 1:

00.005−0.00200.002201020152020−0.00500.005
TendenciaEstacionalidadResiduoDescomposición aditivaAñoΔ%Δ%Δ%

Exportaciones

###EXPORTACIONES
  wt_xp = ts(bdd$XPOR, frequency = 12, start = c(2005,1))
  #FUNCION SMA (SIMPLE MOVIL MEDIA)
  #COMPONENTENTE TENDENCIAL
  tendencia_sma_xp <- SMA(wt_xp, n = 12)
  
  #COMPONENTE ESTACIONAL
  st_rt_wt_xp = wt_xp - tendencia_sma_xp
  ##MATRIZ ESTACIONALIDAD
  matrizst_rt_xp <- matrix(st_rt_wt_xp, nrow = 12)
  matrizst_rt_xp <- t(matrizst_rt_xp)
  mean_matrizst_rt_xp <- colMeans(matrizst_rt_xp, na.rm = TRUE)
  ##COMPONENTE RESIDUAL
  estacional_xp <- rep(mean_matrizst_rt_xp, 15)
  estacional_xp <- ts(estacional_xp, frequency = 12, start = c(2005,1))
  residual_xp <- st_rt_wt_xp - estacional_xp

Gráfico 2:

0.4M0.6M0.8M1M1.2M−50k050k201020152020−500k0
TendenciaEstacionalidadResiduoDescomposición aditivaAñoFOBFOBFOB

IV. Descomposición Multiplicativa

Inflación

###INFLACION
#FUNCION SM (TENDENCIA CENTRADA)
tendencia_infl_mul <- ma(wt_inf, 12, centre = TRUE)
#COMPONENTE SIN TENDENCIA
st_rt_infl_mul <- wt_inf/tendencia_infl_mul
#MATRIZ COMPONENTE SIN TENDENCIA
matrizst_rt_inf_mul <- matrix(st_rt_infl_mul, nrow = 12)
##TRANSPUESTA
matrizst_rt_t_inf_mul <- t(matrizst_rt_inf_mul)
###PROMEDIOS MATRIZ TRANSPUESTA DEL COMPONENTE SIN TENDENCIA
promediosmt_inf_mul <- colMeans(matrizst_rt_t_inf_mul, na.rm = T)

#COMPONENTE ESTACIONAL MULTIPLICATIVO
estacional_inf_mul <- rep(promediosmt_inf_mul, 15)
estacional_inf_mul <- ts(estacional_inf_mul, frequency = 12, start = c(2005,1))
#COMPONENTE RESIDUO MULTIPLICATIVO
residuo_inf_mul <- st_rt_infl_mul/estacional_inf_mul

Gráfico 3:

00.005−5051015201020152020−20020
TendenciaEstacionalidadResiduoDescomposición MultiplicativaAñoΔ%Δ%Δ%

Exportaciones

###EXPORTACIONES

#FUNCION SM (TENDENCIA CENTRADA)
tendencia_xp_mul <- ma(wt_xp, 12, centre = TRUE)
#COMPONENTE SIN TENDENCIA
st_rt_xp_mul <- wt_xp/tendencia_xp_mul
#MATRIZ COMPONENTE SIN TENDENCIA
matrizst_rt_xp_mul <- matrix(st_rt_xp_mul, nrow = 12)
##TRANSPUESTA
matrizst_rt_t_xp_mul <- t(matrizst_rt_xp_mul)
###PROMEDIOS MATRIZ TRANSPUESTA DEL COMPONENTE SIN TENDENCIA
promediosmt_xp_mul <- colMeans(matrizst_rt_t_xp_mul, na.rm = T)

#COMPONENTE ESTACIONAL MULTIPLICATIVO
estacional_xp_mul <- rep(promediosmt_xp_mul, 15)
estacional_xp_mul <- ts(estacional_xp_mul, frequency = 12, start = c(2005,1))
#COMPONENTE RESIDUO MULTIPLICATIVO
residuo_xp_mul <- st_rt_xp_mul/estacional_xp_mul

Gráfico 4:

0.4M0.6M0.8M1M1.2M0.90.9511.052010201520200.51
TendenciaEstacionalidadResiduoDescomposición MultiplicativaAñoΔ%Δ%Δ%

V. Análisis de las variables

Antes de continuar es pertinente mencionar que dentro de los siguientes análisis se tomará en cuanta esencialmente las figuras de la media móvil central. Ello debido que la tendencia móvil simple usa solo los valores anteriores; mientras que la media móvil centrada en lugar de usar los anteriores, utiliza también los valores posteriores. Es decir que la tendencia móvil central resulta en un mejor alisado de las tendencias a través del tiempo, asimismo, las estimaciones utilizan valores centrales y la serie de tiempo no pierde mucha calidad.

Inflación

Tendencia:
En la variable exportaciones se puede evidenciar una tendencia creciente hacia 2008. Esto se puede explicar por el nuevo régimen político de aquel entonces. El crecimiento económico fue básicamente debido a la enorme inversión privada y pública que creció 16,1% respecto al 2007 (El Universo, 2009). Además, el precio del crudo ecuatoriano se vio elevado en 2008 por los precios de los mercados internacionales. El barril de petroleo llegó a los 120 dólares. Sin embargo, a mediados del 2009 y 2010 el precio se desplomó llegando a precios de 20 dólares por barril de crudo. Según la CEPAL (2009), los ingresos del Ecuador derivados de las exportaciones petrolera crecieron en un 222%. Ello explica, así mismo, el aumento de los ingresos en un 69,2% del Estado ecuatoriano. En los años siguientes el precio del crudo (principal componente de las exportaciones totales) osciló entre los $78,2 por barril. Hasta finales de 2013, el Ecuador recibió un total de $77.530 millones. En suma, la cuenta corriente de la balanza de pagos denotó un superavit, entre 2007 y 2008, resultado de los altos precios del petróleo WTI.
Para 2013 se puede observar una tendencia a la alza. De acuerdo con el Banco Central del Ecuador (2014), el Ecuador presentó un crecimiento económico con una fuerte relación sobre las exportaciones totales que crecieron en 6,6% con respecto a 2012. Los precios del crudo ecutoriano cotizaron entre $104,73 y $108,73 en el último cuatrimestre del 2013.
Hacia 2015, se denota una caída tendencial grave. Las exportaciones totales del Ecuador cayeron en $7.366 millones de dólares. La caída de los precios del crudo en los mercados internacionales y la apreciación del dólar serían la respuesta. Las ventas de Ecuador hacia el mundo decayeron en aproximadamente 28,6%. Varios sectores no petroleros cerraron en números negativos, excepto los cacaoteros, bananeros, madereros. Los sectores más afectados en los mercados internacionales fueron el camarón, el café y el atún ecuatoriano.
En 2018 es evidente que la tendencia vuelve a subir. Los precios del crudo ecuatoriano se recuperaron, de forma relativa, en este tiempo. Los precios durante 4 años fueron devastadores para los productores de petroleo. Sin embargo, en 2018 se elevaron hasta los $75,23 (cierre mercado octubre 2018). La tendencia es clara, se demarca constante con pequeños picos y valles.
En 2020, el mundo fue asotado por la pandemia COVID-19. Las exportaciones totales de Ecuador cayeron sustancialmente. Los mercados mundiales se cerraron a Ecuador, pues tenían otras prioridades. La producción de petroleo se desacerleró y la producción de productos no petroleros se sumergió.
En suma, se puede observar una tendencia de las exportaciones en función del precio del petróleo en los mercados internacionales. Las exportaciones no petroleras no influyen en gran cuantía dentro de la balanza comercial. Dicho esto, mientras suba el precio, las exportaciones suben y mientras baja el precio las exportaciones disminuyen.
Estacionalidad:
En cuanto al componente estacional se puede denotar que cada año las exportaciones totales suelen tener un repunte y luego una caída. La caída en forma de pico invertido sería leve, pues es muy breve. Las exportaciones, por tanto, denotarían sus mejores meses a inicios y mediados del año.
Residuo:
El residuo parece ser totalmente aleatorio. No tienen ninguna tendencia a lo largo del tiempo. Este componente se puede entender como ruido de la serie dentro del proceso estocástico.

Exportaciones

Tendencia:
La inflación del Ecuador se disparó a 8,83% por causas internas y externas (El Universo, 2009). El proceso inflacionario de Ecuador se aceleró, desde enero de 2008, llegando a niveles del 4,2% para finalmente cerrar en
casí 9 puntos porcentuales. El Banco Central del Ecuado ha expuesto que la inflación presentada a 2008 fue detonada por tres cuasas principales: precios internacionales, tipo de cambio y políticas públicas. Las políticas enfacadas en el gasto social produjeron un exceso de liquidez en la economía que derivó en una alza de precios. La demanda impulsada por el gasto público se reflejó mediante la inflación.
A partir 2008, la inflación muestra una tendencia a la baja. Se ha mantenido con esa tendencia a lo largo del tiempo. Entre 2015 a 2020, es evidente que la inflación ha caído aún más. En 2018 la inflación fue de apenas 0,27%. Esta debacle de la inflación puede ser explicada por la disminución de los precios internacionales de los bienes y servicios a partir de la crisis de 2008 en la que quebraron importantes bancos extranjeros.
Estacionalidad:
Con respecto al componente estacional se puede denotar que 8 o 10 la inflación tiene una ganancia. Se observa un nivel generalizado de poco nivel, pues como se expuso, Ecuador mantiene una inflación que oscila entre pequeños valores. La alza en la inflación puede responder, en teoría, a épocas donde el gasto público aumenta y el mercado interno (ecuatoriano) se expande.
Tendencia:
La tendencia de la inflación no demarca una tendencia. Es un proceso aleatorio en forma de ruido. Al igual que residuo de las exportaciones, presenta valores aleatorios que no especifican o dan razón alguna.

VI. Fuentes bibliográficas

○El Universo. (9 de abril de 2009). Ecuador registra crecimiento 6,52% en 2008 . El Universo.
○CEPAL. (2009). Ecuador.
○BCE. (2014). LA ECONOMÍA ECUATORIANA TUVO UN CRECIMIENTO ANUAL DE 4,9% ○EN EL TERCER TRIMESTRE DE 2013 . Quito.
El Universo. (12 de enero de 2009). La inflación se disparó en el 2008 por causas internas y externas. El Universo.
○Banco Central del Ecuador. (2021) Estadísticas.
Segundo-Parcial---Macroeconomía11.knit

“Segundo Parcial - Macroeconomía”

Jean Pierre Enríquez

22 de octubre de 2021

I. Pregunta de investigación

¿Cuál es el efecto de la inflación sobre las exportaciones totales del Ecuador?

II. Estadísticas descriptivas

Inflación

##       Min.    1st Qu.     Median       Mean    3rd Qu.       Max. 
## -7.037e-03 -8.734e-05  1.770e-03  2.298e-03  4.180e-03  1.518e-02

Exportaciones

##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##   85114  538474  675944  758797 1002177 1514327

II. Gráficos de las series de tiempo

Inflación

20062008201020122014201620182020−0.00500.0050.010.015
AñoInflación

 

Exportaciones totales

200620082010201220142016201820200.2M0.4M0.6M0.8M1M1.2M1.4M
AñoExportaciones

III. Descomposición Aditiva

Variable Inflación

library(TTR)
  ###INFLACION
wt_inf = ts(bdd$INFL, frequency = 12, start = c(2005,1))
  #FUNCION SMA (SIMPLE MOVIL MEDIA)
    #COMPONENTENTE TENDENCIAL
  tendencia_sma_infl <- SMA(wt_inf, n = 12)
  #COMPONENTE ESTACIONAL
  st_rt_wt_infl = wt_inf - tendencia_sma_infl
  ##MATRIZ ESTACIONALIDAD
  matrizst_rt_ifl <- matrix(st_rt_wt_infl, nrow = 12)
  matrizst_rt_inf <- t(matrizst_rt_ifl)
  mean_matrizst_rt_infl <- colMeans(matrizst_rt_inf, na.rm = TRUE)   
  ##COMPONENTE RESIDUAL
  estacional_inf <- rep(mean_matrizst_rt_infl, 15)
  estacional_inf <- ts(estacional_inf, frequency = 12, start = c(2005,1))
  residual_inf <- st_rt_wt_infl - estacional_inf

Gráfico 1:

00.005−0.00200.002201020152020−0.00500.005
TendenciaEstacionalidadResiduoDescomposición aditivaAñoΔ%Δ%Δ%

Exportaciones

###EXPORTACIONES
  wt_xp = ts(bdd$XPOR, frequency = 12, start = c(2005,1))
  #FUNCION SMA (SIMPLE MOVIL MEDIA)
  #COMPONENTENTE TENDENCIAL
  tendencia_sma_xp <- SMA(wt_xp, n = 12)
  
  #COMPONENTE ESTACIONAL
  st_rt_wt_xp = wt_xp - tendencia_sma_xp
  ##MATRIZ ESTACIONALIDAD
  matrizst_rt_xp <- matrix(st_rt_wt_xp, nrow = 12)
  matrizst_rt_xp <- t(matrizst_rt_xp)
  mean_matrizst_rt_xp <- colMeans(matrizst_rt_xp, na.rm = TRUE)
  ##COMPONENTE RESIDUAL
  estacional_xp <- rep(mean_matrizst_rt_xp, 15)
  estacional_xp <- ts(estacional_xp, frequency = 12, start = c(2005,1))
  residual_xp <- st_rt_wt_xp - estacional_xp

Gráfico 2:

0.4M0.6M0.8M1M1.2M−50k050k201020152020−500k0
TendenciaEstacionalidadResiduoDescomposición aditivaAñoFOBFOBFOB

IV. Descomposición Multiplicativa

Inflación

###INFLACION
#FUNCION SM (TENDENCIA CENTRADA)
tendencia_infl_mul <- ma(wt_inf, 12, centre = TRUE)
#COMPONENTE SIN TENDENCIA
st_rt_infl_mul <- wt_inf/tendencia_infl_mul
#MATRIZ COMPONENTE SIN TENDENCIA
matrizst_rt_inf_mul <- matrix(st_rt_infl_mul, nrow = 12)
##TRANSPUESTA
matrizst_rt_t_inf_mul <- t(matrizst_rt_inf_mul)
###PROMEDIOS MATRIZ TRANSPUESTA DEL COMPONENTE SIN TENDENCIA
promediosmt_inf_mul <- colMeans(matrizst_rt_t_inf_mul, na.rm = T)

#COMPONENTE ESTACIONAL MULTIPLICATIVO
estacional_inf_mul <- rep(promediosmt_inf_mul, 15)
estacional_inf_mul <- ts(estacional_inf_mul, frequency = 12, start = c(2005,1))
#COMPONENTE RESIDUO MULTIPLICATIVO
residuo_inf_mul <- st_rt_infl_mul/estacional_inf_mul

Gráfico 3:

00.005−5051015201020152020−20020
TendenciaEstacionalidadResiduoDescomposición MultiplicativaAñoΔ%Δ%Δ%

Exportaciones

###EXPORTACIONES

#FUNCION SM (TENDENCIA CENTRADA)
tendencia_xp_mul <- ma(wt_xp, 12, centre = TRUE)
#COMPONENTE SIN TENDENCIA
st_rt_xp_mul <- wt_xp/tendencia_xp_mul
#MATRIZ COMPONENTE SIN TENDENCIA
matrizst_rt_xp_mul <- matrix(st_rt_xp_mul, nrow = 12)
##TRANSPUESTA
matrizst_rt_t_xp_mul <- t(matrizst_rt_xp_mul)
###PROMEDIOS MATRIZ TRANSPUESTA DEL COMPONENTE SIN TENDENCIA
promediosmt_xp_mul <- colMeans(matrizst_rt_t_xp_mul, na.rm = T)

#COMPONENTE ESTACIONAL MULTIPLICATIVO
estacional_xp_mul <- rep(promediosmt_xp_mul, 15)
estacional_xp_mul <- ts(estacional_xp_mul, frequency = 12, start = c(2005,1))
#COMPONENTE RESIDUO MULTIPLICATIVO
residuo_xp_mul <- st_rt_xp_mul/estacional_xp_mul

Gráfico 4:

0.4M0.6M0.8M1M1.2M0.90.9511.052010201520200.51
TendenciaEstacionalidadResiduoDescomposición MultiplicativaAñoΔ%Δ%Δ%

V. Análisis de las variables

Antes de continuar es pertinente mencionar que dentro de los siguientes análisis se tomará en cuanta esencialmente las figuras de la media móvil central. Ello debido que la tendencia móvil simple usa solo los valores anteriores; mientras que la media móvil centrada en lugar de usar los anteriores, utiliza también los valores posteriores. Es decir que la tendencia móvil central resulta en un mejor alisado de las tendencias a través del tiempo, asimismo, las estimaciones utilizan valores centrales y la serie de tiempo no pierde mucha calidad.

Inflación

Tendencia:
En la variable exportaciones se puede evidenciar una tendencia creciente hacia 2008. Esto se puede explicar por el nuevo régimen político de aquel entonces. El crecimiento económico fue básicamente debido a la enorme inversión privada y pública que creció 16,1% respecto al 2007 (El Universo, 2009). Además, el precio del crudo ecuatoriano se vio elevado en 2008 por los precios de los mercados internacionales. El barril de petroleo llegó a los 120 dólares. Sin embargo, a mediados del 2009 y 2010 el precio se desplomó llegando a precios de 20 dólares por barril de crudo. Según la CEPAL (2009), los ingresos del Ecuador derivados de las exportaciones petrolera crecieron en un 222%. Ello explica, así mismo, el aumento de los ingresos en un 69,2% del Estado ecuatoriano. En los años siguientes el precio del crudo (principal componente de las exportaciones totales) osciló entre los $78,2 por barril. Hasta finales de 2013, el Ecuador recibió un total de $77.530 millones. En suma, la cuenta corriente de la balanza de pagos denotó un superavit, entre 2007 y 2008, resultado de los altos precios del petróleo WTI.
Para 2013 se puede observar una tendencia a la alza. De acuerdo con el Banco Central del Ecuador (2014), el Ecuador presentó un crecimiento económico con una fuerte relación sobre las exportaciones totales que crecieron en 6,6% con respecto a 2012. Los precios del crudo ecutoriano cotizaron entre $104,73 y $108,73 en el último cuatrimestre del 2013.
Hacia 2015, se denota una caída tendencial grave. Las exportaciones totales del Ecuador cayeron en $7.366 millones de dólares. La caída de los precios del crudo en los mercados internacionales y la apreciación del dólar serían la respuesta. Las ventas de Ecuador hacia el mundo decayeron en aproximadamente 28,6%. Varios sectores no petroleros cerraron en números negativos, excepto los cacaoteros, bananeros, madereros. Los sectores más afectados en los mercados internacionales fueron el camarón, el café y el atún ecuatoriano.
En 2018 es evidente que la tendencia vuelve a subir. Los precios del crudo ecuatoriano se recuperaron, de forma relativa, en este tiempo. Los precios durante 4 años fueron devastadores para los productores de petroleo. Sin embargo, en 2018 se elevaron hasta los $75,23 (cierre mercado octubre 2018). La tendencia es clara, se demarca constante con pequeños picos y valles.
En 2020, el mundo fue asotado por la pandemia COVID-19. Las exportaciones totales de Ecuador cayeron sustancialmente. Los mercados mundiales se cerraron a Ecuador, pues tenían otras prioridades. La producción de petroleo se desacerleró y la producción de productos no petroleros se sumergió.
En suma, se puede observar una tendencia de las exportaciones en función del precio del petróleo en los mercados internacionales. Las exportaciones no petroleras no influyen en gran cuantía dentro de la balanza comercial. Dicho esto, mientras suba el precio, las exportaciones suben y mientras baja el precio las exportaciones disminuyen.
Estacionalidad:
En cuanto al componente estacional se puede denotar que cada año las exportaciones totales suelen tener un repunte y luego una caída. La caída en forma de pico invertido sería leve, pues es muy breve. Las exportaciones, por tanto, denotarían sus mejores meses a inicios y mediados del año.
Residuo:
El residuo parece ser totalmente aleatorio. No tienen ninguna tendencia a lo largo del tiempo. Este componente se puede entender como ruido de la serie dentro del proceso estocástico.

Exportaciones

Tendencia:
La inflación del Ecuador se disparó a 8,83% por causas internas y externas (El Universo, 2009). El proceso inflacionario de Ecuador se aceleró, desde enero de 2008, llegando a niveles del 4,2% para finalmente cerrar en
casí 9 puntos porcentuales. El Banco Central del Ecuado ha expuesto que la inflación presentada a 2008 fue detonada por tres cuasas principales: precios internacionales, tipo de cambio y políticas públicas. Las políticas enfacadas en el gasto social produjeron un exceso de liquidez en la economía que derivó en una alza de precios. La demanda impulsada por el gasto público se reflejó mediante la inflación.
A partir 2008, la inflación muestra una tendencia a la baja. Se ha mantenido con esa tendencia a lo largo del tiempo. Entre 2015 a 2020, es evidente que la inflación ha caído aún más. En 2018 la inflación fue de apenas 0,27%. Esta debacle de la inflación puede ser explicada por la disminución de los precios internacionales de los bienes y servicios a partir de la crisis de 2008 en la que quebraron importantes bancos extranjeros.
Estacionalidad:
Con respecto al componente estacional se puede denotar que 8 o 10 la inflación tiene una ganancia. Se observa un nivel generalizado de poco nivel, pues como se expuso, Ecuador mantiene una inflación que oscila entre pequeños valores. La alza en la inflación puede responder, en teoría, a épocas donde el gasto público aumenta y el mercado interno (ecuatoriano) se expande.
Tendencia:
La tendencia de la inflación no demarca una tendencia. Es un proceso aleatorio en forma de ruido. Al igual que residuo de las exportaciones, presenta valores aleatorios que no especifican o dan razón alguna.

VI. Fuentes bibliográficas

○El Universo. (9 de abril de 2009). Ecuador registra crecimiento 6,52% en 2008 . El Universo.
○CEPAL. (2009). Ecuador.
○BCE. (2014). LA ECONOMÍA ECUATORIANA TUVO UN CRECIMIENTO ANUAL DE 4,9% ○EN EL TERCER TRIMESTRE DE 2013 . Quito.
El Universo. (12 de enero de 2009). La inflación se disparó en el 2008 por causas internas y externas. El Universo.
○Banco Central del Ecuador. (2021) Estadísticas.